Locking Worksheet w/ password and conditions.

[wmtsub]

How can I the password to apply automatically. This gives me an error.

Also can I set it so I can copy data form a specific column [e]or from the status bar?


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True "password"

 

[Logit]

.

Here are two sets of macros. One to protect/unprotect all sheets ... One to protect/unprotect a single sheet :

Option Explicit


Sub ProtectAll()
'Updateby Extendoffice 20161215
Dim x As Long
Sheet1.Select
For x = 2 To ThisWorkbook.Sheets.Count
    If Sheets(x).Name <> "Sheet1" Then Sheets(x).Protect Password:="abc"
Next x
End Sub


Sub UnProtectAll()
'Updateby Extendoffice 20161215
Dim x As Long
Sheet1.Select
For x = 2 To ThisWorkbook.Sheets.Count
    If Sheets(x).Name <> "Sheet1" Then Sheets(x).Unprotect Password:="abc"
Next x
End Sub




Sub ProtectSheet()
    Sheet1.Protect Password:="abc"
    
End Sub


Sub UnprotectSheet()
    Sheet1.Unprotect Password:="abc"
End Sub

 

[wmtsub]

Thanks, Can do that. What I was trying to ask for was to PW protect the 1 sheet W/ the conditions specified.

 

[Logit]

.
https://www.extendoffice.com/documents/excel/4129-excel-protect-sheet-allow-copy.html

https://support.office.com/en-ie/ar...orksheet-139e676e-10a0-443b-bbfe-3dac22cd8476

 

[wmtsub]

Thanks but none of those address what I am asking for.

part 1] Why does this not work?

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True "password"

part 2] is it possible to COPY from the status bar of a locked sheet?​

 

[Logit]

.
This works :

Option Explicit


Sub shtprotect()
    ActiveSheet.Protect Password:="pw"
End Sub

The remainder of the line of code would most likely work if the sheet were unprotected first.

The same holds true for copying anything from that sheet. You can copy while the sheet is protected, but you can only paste to another sheet ...
unless the same sheet is first unprotected.

 

[wmtsub]

The sheet is unlocked and this does not work, it does however if I remove rrthe PW.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True Password="XX"
​