Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Makro virker ikke på beskyttet ark

 Besvar Besvar
Forfatter
Nignag Se dropdown
Forum Begynder
Forum Begynder


Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 8
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Nignag Citér  BesvarSvar Direkte link til dette indlæg Emne: Makro virker ikke på beskyttet ark
    Sendt: 22.Maj.2024 kl. 09:27
Hej Alle,
Jeg har indsat et tekstfelt og tildelt denne en makro - Men når jeg beskytter arket melder den fejl på makroen.

Under beskyt ark har jeg flueben i følgende:
- Marker låste celler
- Rediger objekter
- Rediger scenarier

Jeg har været under "Formater Figur" og fjernet låst i egenskaber.

Håber der er nogen der kan hjælpe derude :-)
Til top



Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 642
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22.Maj.2024 kl. 10:59
Hvis cellerne, som makroen skal skrive i, er låste, så kan det ikke lade sig gøre, med mindre du først lader makroen fjerne arkbeskyttelsen og derefter påfører den igen.

Sheets("my_sheet").Unprotect

... makroen skriver

Sheets("my_sheet").Protect
Til top
Nignag Se dropdown
Forum Begynder
Forum Begynder


Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 8
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Nignag Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22.Maj.2024 kl. 11:28
Hvor i nedenstående makro vil du sætte dem ind - Jeg får fejl

Sub StyklisttilSAP()
'
' StyklisttilSAP Makro
'

'

    ActiveSheet.Range("$A$4:$P$58").AutoFilter Field:=5, Criteria1:="<>0", _
        Operator:=xlAnd, Criteria2:="<>-"
        
End Sub
Til top
Nignag Se dropdown
Forum Begynder
Forum Begynder


Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 8
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Nignag Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22.Maj.2024 kl. 12:01
Har fået det løst med følgende kommando

ActiveSheet.Unprotect _

ActiveSheet.Protect

Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 642
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22.Maj.2024 kl. 12:55
Super fint.

Kan jeg lokke dig til at markere min løsning som accepteret?
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk