Just nu i M3-nätverket
Jump to content

Skydda kolumner


miksor
 Share

Recommended Posts

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

1_skydd.jpg

1_fel.jpg

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Edited by miksor
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share



×
×
  • Create New...