vba自动生成旋转数字序列

xzw19920522

您好！有个问题请教您
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 And Not IsEmpty(tt) Then
    ss = InputBox("请输入密码", "密码输入窗口")
    If ss <> "1234" Then
        Application.Undo
    End If
End If
Application.EnableEvents = True
End Sub
这是我在别的帖子看见的您这个代码，现在有一个问题，能否修改一下这个代码，使选中多个单元格进行删除、复制粘贴等操作时也需要输入密码才可操作

ctp_119

xzw19920522 发表于 2018-10-9 16:27
您好！有个问题请教您
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents  ...

你这个需求无需代码，Excel自带就有！！！

xzw19920522

ctp_119 发表于 2018-10-9 20:39
你这个需求无需代码，Excel自带就有！！！

好的，谢谢您

pnzt

学习学习学习学习

excelvlookup

几年前问过一个螺旋数列的问题，可是没人回答。现在写个，支持任总数字的。先清空表，在[a1]输入数列的最后一个数字，比如16；在[a2]输入起点位置，比如h15.
Sub aa()
n = [a1]
qd = [a2]
Range(qd) = 1
a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
b = Array(0, 0, 0, 0, 0, -11, -1, -11, 0, 1, 11, 11, 0, 1, -1, 1)
x = Range(qd).Column
y = Range(qd).Row
For i = 1 To n - 1
    s = 0
    If Cells(y - 1, x) = "" Then s = s + 1
    If Cells(y + 1, x) = "" Then s = s + 2
    If Cells(y, x - 1) = "" Then s = s + 4
    If Cells(y, x + 1) = "" Then s = s + 8
    t1 = Abs(b(s)): t2 = b(s) Mod 10
    If t1 > 1 Then y = y + t2 Else x = x + t2
    Cells(y, x) = i + 1
Next
End Sub

jhegzwjb2016

高手！高手！太厉害了！