Hello everybody,
I have a problem with AllowEditRanges.
My excel have 4+admin. 3 persons have access for one sheet each, they can edit etc but they can do nothing with the rest.
Fourth one is for observe/checking as manager account. This person has to have access of some cells in every sheet in order to use filters.
I used .Locked but it does not allow to use filter (Green). Then, I use AllowEditRanges but cannot run (in red some tries).
I would be very thankful if somebody could help me.
Below is the code
Thank you in advance.
I would like
Sub login()
Dim login As String
Dim haslo As String
login = InputBox("Please insert your name")
haslo = InputBox("Please insert password")
Select Case login
Case "1"
If haslo Like "Password1" Then
Worksheets("Sheet1").Unprotect
Worksheets("Sheet1").Visible = True
End If
Case "2"
If haslo Like "Password2" Then
Worksheets("Sheet2").Unprotect
Worksheets("Sheet2").Visible = True
End If
Case "3"
If haslo Like "Password3" Then
Worksheets("Sheet3").Unprotect
Worksheets("Sheet3").Visible = True
End If
Case "Supervisor"
If haslo Like "Supervisor Then
'Worksheets("Resumen").Unprotect
ThisWorkbook.Worksheets("Sheet4").Range("B12:C12").Locked = False
ThisWorkbook.Worksheets("Sheet4").Range("B14:C14").Locked = False
ThisWorkbook.Worksheets("Sheet4").Range("B16:C16").Locked = False
ThisWorkbook.Worksheets("Sheet4").Range("B18:C18").Locked = False
ThisWorkbook.Worksheets("Sheet4").Range("B20").Locked = False
ThisWorkbook.Worksheets("Sheet4").Range("B22:D22").Locked = False
ThisWorkbook.Worksheets("Sheet1").Range("A5:H5").Locked = False
ThisWorkbook.Worksheets("Sheet2").Range("A5:H5").Locked = False
ThisWorkbook.Worksheets("Sheet3").Range("A5:H5").Locked = False
' ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("A5:H5")
'ThisWorkbook.Worksheets("Sheet1").Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("A5:H5")
' Worksheets("Sheet1").Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("A5:H5")
Worksheets("Sheet1").Visible = True
Worksheets("Sheet2").Visible = True
Worksheets("Sheet3").Visible = True
Worksheets("Sheet4").Visible = True
End If
Case "admin"
If haslo Like "Passadmin" Then
Worksheets("Sheet1").Unprotect
Worksheets("Sheet2").Unprotect
Worksheets("Sheet3").Unprotect
Worksheets("Sheet4").Unprotect
Worksheets("Open").Unprotect
Call vissible
End If
Case Else
Call logowanie
End Select
End Sub
Bookmarks