09. august 2017 - 13:03Der er
6 kommentarer og 2 løsninger
Bevar macro funktionalitet i beskyttet ark
Hej alle samme
Jeg har 12 macro'er i et faneblad, hvis eneste funktion er at skjule/vise rækker dvs. hvis man sætter flueben i afkrydsningsboksen, folder rækkerne sig ud, således at man kan indtaste data, klikker man på fluebenet igen, skjuler rækkerne sig, således at det kun er summen af de indtastede data som er synlige.
Problemet er, at filen skal "ud i marken" for at blive beriget med data. Derfor vil jeg meget gerne beskytte arket. Men beskyttelsen gør, at macro'erne holder op med at virke.
Er der nogen som ved, om det er muligt at beskytte arket og holde macro'erne "i live"?
kan du ikke bruge følgende, som låser arket op, og låser igen, efter Macro er kørt! ActiveSheet.Unprotect password:="dit password" Udfør Macroen, og derefter: ActiveSheet.Protect password:="dit password"
Jeg har kopieret "ebea's" kode ind i min egen og har fået en delvis løsning ud af det.
Dvs. 1) jeg beskytter arket 2) macro'en kan afspilles dvs. rækkerne foldes ud (arket er stadig beskyttet) 2) macro'en afspilles igen dvs. rækkerne folder sig sammen men arket er nu ubeskyttet.
Min kode ser nu ud som nedenfor.
Private Sub Cb1_Click() ActiveSheet.Unprotect Password:=" "
If Me.Cb1.Value = True Then
Rows("32:83").Select Selection.EntireRow.Hidden = True Else Rows("32:83").Select Selection.EntireRow.Hidden = False ActiveSheet.Protect Password:=" " End If End Sub
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.