Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Public Sub udførOpdeling() traverserMappeOgKopier MsgBox "Opdeling er udført" End Sub Private Sub traverserMappeOgKopier() Dim ark As Worksheet, arkNavn As String
For Each ark In ActiveWorkbook.Sheets arkNavn = ark.Name
ark.Select ark.Copy
ActiveWorkbook.SaveAs "C:\X" & arkNavn ActiveWorkbook.Close Next ark End Sub
Det eneste der er lidt sjovt er, at alle de nye ark bliver gemt direkte på C-drevet under navnene XSheet1, XSheet2, osv. Jeg synes ellers koden ser rigtig nok ud?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
