Skydda kolumner

[miksor]

Hejsan! Skulle vilja skydda kolumn A, J och K men då blir det fel när jag trycker på knappen NY leverans (bild 2 visar felmeddelandet), kan det gå att komma förbi det på nå vis?

 

/Micke

[Monshi]

Det går ganska enkelt att ge VBA rätt att ändra i skyddade kolumner om du inte kan ändra din kod att inte göra insert i det skyddade området

 

 Me.Protect userinterfaceonly:=True

 

Där Me då kan ersättas med

Worksheet("Blad")

om koden inte körs på bladet som den ska arbeta mot.

 

nackdelen är att om du skyddar med lösenord måste VBA veta det lösenordet.

[miksor]

Fick inte till det med din kod Monshi men det verkar funka med denna

Public Sub NyLeverans()

'Detta Macro skapar en ny rad och lägger till dagens datum

Sheets("Ankomstkontroll").Unprotect Password:="xxxxx"              'Låser upp skyddet

Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
ActiveCell.Select
ActiveCell.Value = Date
NumberFormat = "yyyy/mm/dd"
ActiveCell.Offset(0, 1).Select

Sheets("Ankomstkontroll").Protect Password:="xxxxx"                    'Låser skyddet igen

End Sub

Redigerad 14 januari, 2022 av miksor

[Monshi]

Så kan man behöva göra det är sant. Bra löst!