Navigation

   Jeg har denne makro kørende i et excel ark, men der et lille problem.
Den skal kun køre makro når arket er låst op for redigering, og ikke hvis det åbnet som skrivebeskyttet.

Det skal virke fra 2010 og op efter.

Denne del i et modul
--
Dim glcheck As Variant

Public Sub lukke()

h = ActiveCell.Row
l = ActiveCell.Column

nycheck = h & l
If glcheck = nycheck Then

ActiveWorkbook.Save
ActiveWorkbook.Close

End If

x = ActiveCell.Row
Y = ActiveCell.Column

glcheck = x & Y

Application.OnTime Now + TimeValue("00:03:00"), "lukke" 'HVORLÆNGE ARKET MÅ VÆRER ÅBENT

End Sub

--
Denne programkoden i Denne projektmappe

Public Sub workbook_open()

Application.OnTime Now + TimeValue("00:03:00"), "lukke"

End Sub
--

MVH Steen

Navigation

Makro