Warning:  fopen(images/path/to/) [function.fopen]: failed to open stream: No such file or directory in /home/icreativem/domains/office-it.org/public_html/wp-content/plugins/exec-php/includes/runtime.php(42) : eval()'d code on line 7

Warning:  filesize() [function.filesize]: stat failed for images/path/to/ in /home/icreativem/domains/office-it.org/public_html/wp-content/plugins/exec-php/includes/runtime.php(42) : eval()'d code on line 7

Warning:  fread(): supplied argument is not a valid stream resource in /home/icreativem/domains/office-it.org/public_html/wp-content/plugins/exec-php/includes/runtime.php(42) : eval()'d code on line 7

How to Use

What you need to amend is to change the “images/path/to/” to your image path and “name” to image name.

Write the Code

Open the workbook for which we want to sort the sheets and press Alt + F11 to open the Visual Basic Editor, and select Insert > Module to insert a module. Copy and paste the following code in module just created.

Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, _
"Sheet Sort")
If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

If lReply = vbYes Then 'Sort ascending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
Else 'Sort descending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
End If

End Sub

Now close your Visual Basic Editor and return to your worksheet and save it.

Running the Code

To do this, press Alt + F8, select the macro named “SortSheets”, and press Run. You will be asked the way you sort your sheets either in ascending (A – Z) or descending order (Z – A).

This VB Code works with all version of Excel.

We see new beta sites all the time, but are they any good? Here are some collection of new beta sites. Some of them provide free and useful web services.

1. http://www.sliderocket.com/

SlideRocket is a web application that provides everything you need to design professional quality presentations, manage and share libraries of slides and assets, and to deliver presentations in person or remotely over the web.

2. http://www.behance.net/

This site let us to build your portfolio, list your projects to share and collaborate with other artists.

3. http://www.popfly.com/

Popfly is a tool from Microsoft for developing mashups, widgets and web pages using Silverlight.

4. http://www.sproutbuilder.com/

Sprout is a browser based WYSIWYG editor which build by Flex. It facilitates the way to build, publish, and manage widgets, mini-sites, mashups, banners and more.

5. http://www.tryphone.com/

This is online mobile phone test-drive site. You can get a feeling for what the phone is like to use.

6. http://www.meemix.com/

This is a site can let you to build a very personalised radio channel and interact with the community.

7. http://www.cushycms.com/

Cushycms is a free and truly simple CMS for web designers to let clients to safely edit their own web content without any programming skills required.

8. http://www.kaltura.com/

Kaltura is open source video platform which enables groups to create and edit video collaboratively.

9. http://www.dimdim.com/

Dimdim is the world?s free web meeting where you can share your desktop, show slides, collaborate, chat, talk and broadcast via webcam with absolutely no download required for attendees.

10. http://www.nuconomy.com/

Another web analytics as Google Analytics. It let you understand your users’ activities and how they interact with the various features of your site like never before.

11. http://www.skyfire.com/

Skyfire is a new mobile web browser that allows you to experience the internet on your phone exactly like on your computer. It is fast and support Flash and Ajax as well as QuickTime.

12. http://www.ping.fm/

Too many social networks? Use Ping to update WordPress, Twitter, Facebook, Friendster and many other supported services from whatever you are. Ping.fm is a simple service that makes updating your social networks a snap. Messanges can be sent via AIM, GTalk, iGoogle, Windows Live Messenger, Yahoo! Messenger, WAP, iPhone/iPod Touch, SMS or E-mail.

13. http://www.photrade.com/

Photrade is great for sourcing free photos legally. It also let photographers to sell and licence their own pictures to make some money.

14. http://www.pluginmeter.com/

If you are a wordpress blogger or just for some other reasons if you want to know which plugins are installed on your favorite wordpress blog then just go to Plugin Meter and you will see list of plugins installed on those blog.

You can try it through its live demo here before install in your server. Don’t worry about its pricing, it is absolutely free!

Features

• GNU-licensed (i.e. free!)
• Simple to use. Quickly generates clear, attractive invoices
• Printer-friendly and PDF view/print of all invoices
• Entirely brandable to your company or person (no reference to Black Sheep Software)
• Option to upload company logo
• Database is customizable to store whatever invoice data you need
• Choice of $ or £ currency
• Stores client information to allow you to re-invoice the same client multiple times
• May set custom invoice numbering scheme, specify whatever invoice date you wish
• Build in “Flagging” mechanism to let you create invoices by matching up existing items to clients
• May customize CSS to change the appearance of the invoices and PDFs

Download
Download the zipfile (5.9MB)
Download the tar file (5.5MB)

Here is its URL for dragtable: http://www.danvk.org/wp/dragtable/

Google Chrome

I won’t post any features here as you can find a million posts / news articles on this. I just installed it. For those who want read about the technology, here is an interesting comic from Scott McCloud.

Google Chrome Comic

You can follow this link to download Google Chrome (BETA) for Windows (English version):

http://www.google.com/chrome/eula.html?hl=en

Don’t forget to post your experience with Google Chrome here. Enjoy your new browser!

Some websites using “[at]” to replace “@” and email will look as “name [at] domain.com”. This is a good idea for personal websites since nobody challenge you. In commercial, many clients wouldn’t allow you to use “name [at] domain.com” this format. They are not web designer and they don’t understand how spam prevention works, or even care for that matter.

I have this method originally from david walsh blog. Its author have a quick PHP script that you can use when putting raw email addresses on a page:

The Function

function encode_email($e)
{
	for ($i = 0; $i < strlen($e); $i++) { $output .= '&#'.ord($e[$i]).';'; }
	return $output;
}

Usage

echo(encode_email('email@office-it.org'));

The above function takes a string input (the email address), loops through each character replacing the letter with the character?s ASCII value, and returns the encoded email address. That?s all you need to do!

Another method (much simple) is found at SOLMETRA. It is a tiny JavaScript code which will encode email for you.

The disadvantage for second method is if you have a page with hundreds of addresses, the page download will be bloated.

I am not guarantee methods above is bulletproof solution, but it is, at least, a basic protection.

Email Office-it.orG

However, they are not always know that they can include subject, CC, BCC, and email body text information in the link as well. By using a querystring-like syntax, we can do more with that simple link.

Example code to add the subject:

Email Office-it.orG

Example code to add the cc’s and bcc’s:

Email Office-it.orG

Example code to add some default body text

Email Office-it.orG

Demo Email Link:
Email Office-it.orG

However, you should remember that simply placing email addresses on a page without encoding them first is like simply emailing spammers your email address. I will write some posts regarding email encoder soon. Please refer here for how to prevent spam bots from collecting email addresses.

How to unprotect

1. First open your protected excel file
2. Launch the Visual Basic Editor
3. Copy and paste the following VB Code

'----------------------------------------------------------------
Option Explicit 

Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords 

Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean 

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
'----------------------------------------------------------------

4. Then press Run button, all internal password will be removed.

If you really don’t know how to do or lazy to copy and cut, you can download the workbook attached below. The workbook is hidden, and has an attached toolbar with a button to start the macro. Activate the workbook you want to unlock and click the button. The code is unlocked so you may examine and modify it as needed. Note: This macro cannot unlock password to open.

Download here

DISCLAIMER: Please note that breaking password protection MAY violate laws or regulations in your jurisdiction.