fortsat spm. tæller hvis print

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Worksheets(1).Range("i1").Value = Worksheets(1).Range("i1").Value + 1
    Worksheets(1).Range("i2").Value = UCase(Environ$("username"))
    Worksheets(1).Range("i3").Value = Now()
End Sub

Vær opmærksom på at BeforePrint også bliver kaldt ved vis udskrift.

>kabbak, det fungerer fint , men jeg mangler den vigtigste og det er at "tæller" feltet bliver låst ?

det kan du kun gøre ved at beskytte arket

maker alle celler i arket, fjern makeringen låst
maker de celler der skal låses og maker låst.
Beskyt arket

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Worksheets(1)..Unprotect
    Worksheets(1).Range("i1").Value = Worksheets(1).Range("i1").Value + 1
    Worksheets(1).Range("i2").Value = UCase(Environ$("username"))
    Worksheets(1).Range("i3").Value = Now()
    Worksheets(1)..Protect
End Sub

>kabbak

Den "brokker" sig , når jeg prøver at køre den igennem. Den vil ikke kører funktion Unprotect

der er en fejl, der er 2 .. i,
Worksheets(1)..Unprotect
  Worksheets(1)..Protect

det skal være  Worksheets(1).Protect
og              Worksheets(1).Unprotect

>kabbak

Det funker bare. Jeg takker !

selv tak ;-))

>kabbak
Lige et tillægs spm. Kan man sætte den til at gemme arket efter "Woorksheets(1).protect" ?

ActiveWorkbook.Save

Skal jeg bare sætte det ind på linien efter "Woorksheet.......?

Jeg kunne bare lige prøve inden jeg spørger. Det fungerer