Username i sidehoved/sidefod

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
'Range("A1") = wshNetwork.UserName
'Range("A2") = wshNetwork.userdomain
'Range("A3") = wshNetwork.ComputerName
ActiveSheet.PageSetup.LeftFooter = wshNetwork.UserName
'dette lille script finder både brugernavn,domæne samt computernavn.

End Sub

sættes i ThisWorkbook modulet

Indsæt denne kode i projektmappens modulark:
Alt-F11, dobbeltklik på "ThisWorkbook i venstre side, og indsæt koden i vinduet til højre.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.PageSetup.RightFooter = Environ("username")
End Sub

Tak til både kabbak og erikjuul.  Begge forslag virker, men det er desværre ikke helt nok. Der er umiddelbart 2 problemer:

1)Hvis jeg går ind i modularket og retter i Sub'en - f.eks. hvis jeg retter RightFooter til leftFooter - Ja så har jeg username, stående i begge sider!!!!

2)hvis jeg looger ud, en anden bruger logger ind og bruger min projektmappe, så er det stadig mit username, der står i sidefoden -hvordan skiftes det automatisk?

det sker ved udprint og ved vis udskrift

hvis det skal ske med det samme, så gør følgende

I et nyt modul

Public Sub NYBruger()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
'Range("A1") = wshNetwork.UserName
'Range("A2") = wshNetwork.userdomain
'Range("A3") = wshNetwork.ComputerName
ActiveSheet.PageSetup.LeftFooter = wshNetwork.UserName
'dette lille script finder både brugernavn,domæne samt computernavn.

End Sub

I ThisWorkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
NYBruger
End Sub

i hvert arkmodul

Private Sub Worksheet_Activate()
NYBruger
End Sub

Til Kabbak (dette indlæg vedrører din korte kommentar fra 13.21.26 - jeg har ikke afprøvet dine forslag fra 13.28.17)

Jeg er delvist enig - men selv om jeg udskriver/vælger vis udskrift, så har jeg stadig usernavnet placeret flere steder efter en rettelse.

Men jeg har så konstateret at jeg blot kan gå ind under Vis Sidehoved/sidefod og slette "det gamle usernavn".

Det med brugerskift virker fint (når blot sikkerhedsniveauet er lavt)

Kan du ikke lige sende et tomt svar så jeg kan tildele dig point?

et svar