protect sheet

[tokhimi]

Hi all help me on macro protection sheets

When im using macro protection sheets with password , but when im press on tool > protection > then unprotect but no need password then will unprotect .???


help.//

 

[VoG]

To protect a sheet with a password try code like this

ActiveSheet.Protect Password:="your password here"

 

[tokhimi]

Sub SetPrintArea()
Sheet2.Unprotect Password:="2287"
'Sets Print Area and prints
ActiveWindow.SelectedSheets("Print Screen").Visible = xlSheetVisible
Sheets("Print Screen").Select
Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
Dim LstRw As Long
Dim ws As Worksheet
Set ws = Sheets("Print Screen")
With ws
LstRw = .Cells(Rows.Count, "A").End(xlUp).Row
End With
Columns("$A:$H").Select
With ActiveSheet.PageSetup
.FitToPagesWide = 1
ActiveSheet.PageSetup.PrintArea = "A1:H1" & LstRw
End With
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
MsgBox "See you again @"
Sheet2.Unprotect Password:="PASWORD"
ActiveWindow.SelectedSheets("Print Screen").Visible = xlSheetVisible
Sheets("Print Screen").Select
Selection.AutoFilter Field:=1
ActiveSheet.Protect Password:="PASWORD"
Sheet2.EnableAutoFilter = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub



HI Vog not working

When im press tools > protection > unprotect then ,all release with no need password .

 

[VoG]

That code is confusing to say the least.

First you are unprotecting Sheet2 with the password 2287

Then you are unprotecting it again with the password PASWORD

Then you are protecting Print Screen with the password PASWORD

 

[tokhimi]

Hi Vog

If all password change to "password" also same

becouse the point is the password is using macro to protect ,but when im normal go to tools > protection > unprotect ,,then will release the protect no need to key password

 

[VoG]

Try this

Sub test()
Sheets.Add
ActiveSheet.Protect Password:="password"
End Sub

Can you unprotect the new sheet manually without a password? I cannot.

 

[tokhimi]

Hi Vog

i find out already

when i try out with what u post is ok cannot unprotect without password

but u try add this at below

Sheet2.EnableAutoFilter = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

then will release without password

 

[VoG]

Because you haven't supplied a password!

ActiveSheet.Protect Password:="PASWORD", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

 

[tokhimi]

" password" if i change to my password also not use;;

hi vog u try to put

Sheet2.EnableAutoFilter = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True


on thaT U sent me test 1 u will know what im saying //with
Sheet2.EnableAutoFilter = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
and without this different tools > protect > unprotect

 

[tokhimi]

When im using macro protection sheets with password
when im press on tool > protection > then unprotect
then no need password then will unprotect .???


Sub test()
Sheets.Add
ActiveSheet.Protect Password:="123"
Sheet2.EnableAutoFilter = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

End Sub