Print side | Luk vindue

Advarsel

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=1365
Udskrevet den: 19.Maj.2024 kl. 00:32


Emne: Advarsel
Besked fra: kbno
Emne: Advarsel
Posteringsdato: 24.Sep.2013 kl. 08:22
Jeg har efter indtastning af macro begyndt at få en advarsel. Det er nedenstående macro excel ikke kan lide. Nogen der har en ide til hvorfor?



Private Sub Worksheet_Change(ByVal Target As Range)
Dim oSheet As Excel.Worksheet

    If Target.Address = "$A$8" Then
        If IsNumeric(Target.Value) Then
            If Target.Value >= 0 And Target.Value < 61 Then
                Set oSheet = ActiveWorkbook.Sheets("TILBUDSLISTE")
                oSheet.Range("A9:A68").EntireRow.Hidden = False
                oSheet.Range("A" & Target.Value + 9 & ":A69").EntireRow.Hidden = True
            End If
        End If
    End If
End Sub



-------------
Hygge - Kim
Excel 365 DK user



Svar:
Besked fra: kbno
Posteringsdato: 24.Sep.2013 kl. 08:25
Tja det billede kunne ikke læse, men der står følgende:

Beskyttelsesadvarsel: Dokumentet indeholder macroer, ActiveX-objekter, oplysninger om XML-udvidelsespakken eller webkomponenter. Disse kan indeholde personlige oplysninger, der ikke kan fjernes af dokumentinspektion.


-------------
Hygge - Kim
Excel 365 DK user



Print side | Luk vindue