Avatar billede Gramstrup Mester
05. maj 2017 - 08:51 Der er 1 kommentar og
1 løsning

VBA til fjerne/aktivere arkbeskyttelse

Hejsa

Jeg vil gerne lave en knap som skal enten beskytte arket hvis det ikke er beskyttet eller fjerne arkbeskyttelse hvis arket er beskyttet.

Jeg har prøvet lidt forskellige VBA jeg får det bare ikke til at virke. Jeg har f.eks. prøvet denne her:

Sub testeren()
    If ActiveSheet.Unprotect = True Then
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering _
    :=True
  End If
    ActiveSheet.Unprotect
End Sub
Avatar billede kabbak Professor
05. maj 2017 - 11:58 #1
Sub testeren()
    If ActiveSheet.ProtectContents = False Then
        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
                            False, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering _
                                                                                      :=True
    Else

        ActiveSheet.Unprotect
    End If

End Sub
Avatar billede Gramstrup Mester
05. maj 2017 - 13:34 #2
Det var lige præcis det som der skulle til...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester