隐藏 DialogSheets [VBA]

Question

我在隐藏我的自定义对话框框架时遇到问题。按下按钮后（他们调用了其他宏），我仍然有我的对话框框，如何隐藏它？ 我正在使用“Dane_Makro”表。 我以前的版本运行良好（我没有添加 2 个额外的按钮，但我编辑了 vbYesNo 按钮 - 方案非常相似） 问候

Source of dialogsheets

'Public btnDlg As DialogSheet

Sub CallBots()

Dim btnDlg As DialogSheet
Dim ButtonDialog As String
ButtonDialog = "CustomButtons"
Dim klik As Boolean
klik = True


Dim oSHL As Object: Set oSHL = CreateObject("WScript.Shell")

Application.ScreenUpdating = False
Application.EnableEvents = False


On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(ButtonDialog).Delete
Err.Clear
Application.DisplayAlerts = True

Set btnDlg = ActiveWorkbook.DialogSheets.Add


With btnDlg
    .Name = ButtonDialog
    .Visible = xlSheetHidden

    With .DialogFrame
        .Height = 70
        .Width = 300
        .Caption = "Generowanie plików do BOTÓW"
    End With

    .Buttons("Button 2").Visible = False
    .Buttons("Button 3").Visible = False
    .Labels.Add 100, 50, 100, 100
    .Labels(1).Caption = "Jak utowrzyć pliki wsadowe do botów?"

    .Buttons.Add 220, 44, 130, 18 'Custom Button #1,index #3
    With .Buttons(3)
        .Caption = "Nowe pliki wsadowe"
        .OnAction = "MakeBotsNew"
    End With


    .Buttons.Add 220, 64, 130, 18 'Custom Button #2,index #4
    With .Buttons(4)
        .Caption = "Konsolidacja plików wsadowych"
        .OnAction = "MakeBotsConso"
   End With


    If .Show = False Then
        oSHL.PopUP "Anulowanie procesu", 1, "Tworzenie plików", vbInformation
        klik = False
    End If

End With

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    'On Error Resume Next
    DialogSheets("CustomButtons").Delete
    Err.Clear
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    btnDlg.Visible = xlSheetVeryHidden

    'Application.ScreenUpdating = True
    Application.EnableEvents = True

结束子

Answer 1

答案更新：

您将需要向您的 MakeBotsNew 和 MakeBotsConso 宏添加一个（可选？）参数，如下所示：

Sub MakeBotsNew(Optional Name As String = "")
    'Existing Code here

    'After existing code:
    If Len(Name) > 0 Then ThisWorkbook.DialogSheets(Name).Hide 'Hide dialog box
End Sub

然后，您需要将 ButtonDialog 名称作为参数添加到 .OnAction，这也意味着将其用单引号括起来：

.OnAction = "'MakeBotsNew """ & ButtonDialog & """'"

（我仍然不明白 A） 为什么您在代码中创建 Dialog 而不是预先创建，以及 B） 为什么您使用 DialogSheet 而不是用户窗体）

旧答案：

由于 DialogSheet 是 Sheet，您需要将 .Visible 属性设置为 xlSheetHidden 或 xlSheetVeryHidden

使用 .Hide 是为了 UserForms，它在 2000 年取代了 DialogSheets？