VBA der kan beskytte ark med kode og fjerne arkbeskyttelse

Hej Lineriber

Jeg har lavet følgende kode i den engelske Excel 2003
Koden ligger under en kommandoknap "cmdLåsSider" på Sheet4 og den låser/låser op for de 3 første sheet.

Du kan selv tilføje ekstra sheet og ændre "pinkode"

Spø´r endelig, hvis du er i tvivl ?

Med venlig hilsen, Nicolai

---


Private Sub cmdLåsSider_Click()
Dim svar As String


svar = InputBox("Indtast pinkode")

'hvis siderne er låst
If Me.cmdLåsSider.Caption = "Lås sider op" Then


    'hvis svaret er: pinkode
    If svar = "pinkode" Then


            For t = 1 To 3
           
                Select Case t
                 
                  Case 1
                        Sheet1.Unprotect ("q")
                   
                    Case 2
                        Sheet2.Unprotect ("q")
                   
                    Case 3
                        Sheet3.Unprotect ("q")
                                                         
                End Select
           
            Next t
       
       
        Me.cmdLåsSider.Caption = "Lås sider"
   
    End If
 
'hvis siderne er låst op
Else

    'hvis svaret er: pinkode
    If svar = "pinkode" Then


            For t = 1 To 3
           
                Select Case t
                   
                    Case 1
                        Sheet1.Protect ("q")
                   
                    Case 2
                        Sheet2.Protect ("q")
                   
                    Case 3
                        Sheet3.Protect ("q")
               
                   
                End Select
           
            Next t
       
       
        Me.cmdLåsSider.Caption = "Lås sider op"

    End If

End If
   

End Sub

Hej,

Jeg bruger en der er mere simpel. Den vælger simpelthen alle ark og beskytter dem med en kode:



Sub protect()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Protect "password", AllowFiltering:=True
Next
End Sub



Når man så skal låse alle ark op, så:



Sub unprotect()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.unprotect "password", AllowFiltering:=True
Next
End Sub

Jeg har lavet en samling smarte VBA koder (GrN_Utils). Der findes subrutiner hvor man låser alle ark, men stadig kan redigere celler, der har samme baggrundsfarve, som den markerede celle.

Du kan finde samlingen på http://moneynet.dk

VH. GrN.dk

Nicolai (lalocin):
hvis jeg kopierer din VBA ind, så får jeg følgende fejl hvor "Me" bliver markeret: Compile error: Invalid use of Me keyword".
Jeg bliver jo excel 2007, så jeg ved ikke om det kan skyldes det?


duxz:
Protect virker fint.
Men jeg får fejl på unprotect koden. ".unprotect" bliver markeret og fejlmeddelelsen er "Compile error: weon number of arguments or invalid property asignment"

Aaaaaarh undskyld det skulle rettelig have været:

Sub unprotecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Unprotect "password"
Next
End Sub

Du ændrer så "password" til det kode ord du gerne vil bruge.

Jeg har haft enorm god brug af dette lille stykke kode ifm. mit arbejde, hvor jeg bruger store rapporterings filer med celler der er låst for indtastning.....jeg tør ikke tænke på hvor mange mande dage jeg har sparet i stedet for at sidde at beskytte hvert enkelt ark manuelt... :)

Så virker det.
Super godt kode, den vil jeg også få meget brug for i mit arbejde med store regneark med mange formler der skal beskyttes.
Jeg vil kombinere den med en fode hvor jeg også skal skjule en masse faner. En kode der protect'er og hide'er faner, og en kode der unhide'er og unprotect'er faner.

Mange tak for hjælpen duxz - smider du et svar?

Hej lineriber

Med hensyn til "Me" error i #4

Så udskift blot "Me" med navnet på den pågældende ark, hvorpå knappen bor.

Med venlig hilsen, Nicolai

Takker!