[已解决]增加代码提示是否恢复需确认。

zxp870223

各位老师好！以下代码是用录制宏完成的，想在里面增加提示代码，当其他人点选模板恢复按钮时，出现提示框确认后系统运行恢复。谢谢！
Sub 模板恢复1()
'
' 模板恢复1 Macro
'On Error Resume Next
    Sheet1.Select
    Sheet1.Activate
   
    Sheet1.Unprotect "08"
'
    ActiveSheet.Range("$A$3:$R$313").AutoFilter Field:=5
    ActiveWindow.SmallScroll Down:=-12
    Range("D2").Select
    Selection.ClearContents
    Range("E2").Select
    Selection.ClearContents
    Range("G2").Select
    Selection.ClearContents
    Range("I2").Select
    Selection.ClearContents
    Range("E4:E313").Select
    Selection.ClearContents
    ActiveWindow.ScrollRow = 293
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 288
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    Range("L4:L313").Select
    Selection.ClearContents
    ActiveWindow.ScrollRow = 293
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 290
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "N3:N313"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        Sheet1.Protect "08", True, True, True
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2015-11-6 17:02

Sub 模板恢复1()
    If MsgBox("你确定要恢复模版吗？", 4 + 32 + 256) = 6 Then
        Sheet1.Activate
        Sheet1.Unprotect "08"
        ActiveSheet.Range("$A$3:$R$313").AutoFilter Field:=5
        Range("D2,E2,G2,I2,E4:E313,L4:L313").ClearContents
        ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Add Key:=Range( _
            "N3:N313"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=  xlSortNormal
        With ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
            Sheet1.Protect "08", True, True, True
        End With
    End If
End Sub

跳转到最佳答案楼层

zjdh

Sub 模板恢复1()
    If MsgBox("你确定要恢复模版吗？", 4 + 32 + 256) = 6 Then
        Sheet1.Activate
        Sheet1.Unprotect "08"
        ActiveSheet.Range("$A$3:$R$313").AutoFilter Field:=5
        Range("D2,E2,G2,I2,E4:E313,L4:L313").ClearContents
        ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort.SortFields.Add Key:=Range( _
            "N3:N313"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=  xlSortNormal
        With ActiveWorkbook.Worksheets("订货B版").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
            Sheet1.Protect "08", True, True, True
        End With
    End If
End Sub

zxp870223

zjdh 发表于 2015-11-6 17:02
Sub 模板恢复1()
    If MsgBox("你确定要恢复模版吗？", 4 + 32 + 256) = 6 Then
        Sheet1.Activa ...

感谢！老师的帮助。谢谢