Print side | Luk vindue

Makro

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3676
Udskrevet den: 02.Maj.2024 kl. 10:19


Emne: Makro
Besked fra: Bøffe
Emne: Makro
Posteringsdato: 12.Nov.2018 kl. 11:47
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


Svar:
Besked fra: maxzpad
Posteringsdato: 12.Nov.2018 kl. 15:52
Du skal finde et passende sted i koden, hvor du kan indsætte noget i stil med dette:
"If Not ActiveWorkbook.ReadOnly Then ...."

Besked fra: Bøffe
Posteringsdato: 16.Nov.2018 kl. 08:32
Undskyld den lange svartid, det kan jeg helle ikke få til at virke.

 

 


Print side | Luk vindue