Помогите новичку, куда вставлять код на запрет сохранения?
Сейчас находится внизу.
Сейчас находится внизу.
Код |
---|
Sub dfd() Dim IE Do Set IE = CreateObject("InternetExplorer.Application") y = y + 1 textes = Worksheets("Лист1").Cells(2, 2).Cells(y).Value Worksheets("Лист1").Cells(2, 2).Cells(y).Select tel = Worksheets("Лист1").Cells(2, 1).Cells(y).Value If tel = "" Then Exit Do Dim strUrl As String strUrl = RussianStringToURLEncode_New("..; & tel & "&shortcode=INPK&text=" & textes) IE.Navigate strUrl Do While IE.busy Application.Wait 1000 Loop IE.Quit Set IE = Nothing Loop MsgBox "Отправлено " & y End Sub Function RussianStringToURLEncode_New(ByVal txt As String) As String For i = 1 To Len(txt) l = Mid(txt, i, 1) Select Case AscW(l) Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case 32: t = "%20" Case Else: t = l End Select RussianStringToURLEncode_New = RussianStringToURLEncode_New & t Next End Function Sub test() Application.DisplayAlerts = False Workbooks("Book.xlsx").Saved = True Application.DisplayAlerts = True End Sub |