Unprotect not working

  • Thread starter Thread starter bobwilson
  • Start date Start date
B

bobwilson

Does any one know why Unprotect is not working on the below code for the
Active Sheet.

Sub custlistcombobox()

ActiveSheet.unprotect

Dim FirstAddress As String
Dim c As Range

With Worksheets("Customer List").Range("A2:A15501")
Set c = .Find(what:=Range("C137"), LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
With ActiveSheet.Range("F105")

..Value = c.Offset(, 1) ' Name
..Offset(1, -3) = c.Offset(, 2) ' Phone
..Offset(1, 0) = c.Offset(, 3) ' Fax
..Offset(2, -3) = c.Offset(, 4) ' Email
..Offset(4, -3) = c.Offset(, 7) ' PST
..Offset(4, 0) = c.Offset(, 8) ' GST
..Offset(23, -2) = c.Offset(, 13) 'Customer Comments

End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

ActiveSheet.Protect

End Sub
 
If there is a worksheet protection password, you need to supply it to the
macro, e.g.:

ActiveSheet.Unprotect "sesame"
 
I don't use passwords. In all my Macros I Unprotect the sheet at th
beginning of the macro and then Protect the sheet at the end. For som
reason this macro does not want to unprotect the activesheet
 
Back
Top