activeworksheet.protect???

[aceee]

hi all.

this should be so simple.. yet it doesn't work for me hehe

Sub LockLogs()
Dim pword As String
pword = mypassword
If ActiveSheet.Protect = False Then
    ActiveSheet.Protect Password:=pword
    Else
    ActiveSheet.Unprotect Password:=pword
End If
End Sub

for some reason.. when it protects it doesn't use the p[assword...

 

[GK039]

The way you have put it mypassword is a variable that hasn't been declared and not a string as it should be

George

hi all.

this should be so simple.. yet it doesn't work for me hehe

Sub LockLogs()
Dim pword As String
pword = mypassword
If ActiveSheet.Protect = False Then
    ActiveSheet.Protect Password:=pword
    Else
    ActiveSheet.Unprotect Password:=pword
End If
End Sub

for some reason.. when it protects it doesn't use the p[assword...

 

[aceee]

The way you have put it mypassword is a variable that hasn't been declared and not a string as it should be

George

say what?

 

[shg]

When you don't declare variables, and don't use Option Explicit, the VBE will create variables on the fly.

Your use of mypassword was intended to be as a literal string (right?), but the syntax causes it to be interpreted as a variable (Variant, Empty) that then gets converted to a null string.

Option Explicit
 
Sub LockLogs()
    Const sPW       As String = "myPassword"
    With ActiveSheet
        If .ProtectContents Then
            .Unprotect Password:=sPW
        Else
            .Protect Password:=sPW
        End If
    End With
End Sub