GASWA Kirim Pesan via email

function kirimPesan() {
  var url = 'https://sender.digilunar.com/send-message';
 var headers = {
  'Content-Type' : 'application/json',
  'Authorization' : 'vcQwWe2hJiHLYvyGosWHtS9msP7Bmt'
 };
 
  var body = {
          "api_key": "vcQwWe2hJiHLYvyGosWHtS9msP7Bmt",
          "sender": "6285708249267",
          "number": "6285229944411",
          "message": "Uji coba lunar"
  }
var options = {
  'method' : 'post',
  'headers' : headers,
  'payload' : JSON.stringify(body)
};

  var hasil = UrlFetchApp.fetch(url,options);
  Logger.log (hasil);
}
function doPost(e){
  var konten = e.postData.contents;
  GmailApp.sendEmail('finaasiyb@gmail.com',"uji coba script",konten);
}

GAS WA Gatway-Kirim Pesan

function kirimPesan() {
  var url = 'https://sender.digilunar.com/send-message';
 var headers = {
  'Content-Type' : 'application/json',
  'Authorization' : 'vcQwWe2hJiHLYvyGosWHtS9msP7Bmt'
 };
 
  var body = {
          "api_key": "vcQwWe2hJiHLYvyGosWHtS9msP7Bmt",
          "sender": "6285708249267",
          "number": "6285229944411",
          "message": "Hello World"
  }
var options = {
  'method' : 'post',
  'headers' : headers,
  'payload' : JSON.stringify(body)
};

  var hasil = UrlFetchApp.fetch(url,options);
  Logger.log (hasil);
}

GAS POSTMAN

function koneksi() {
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var namaData = dataExcel.getName();

  Logger.log(namaData);
  var sapaan = berbicara();
  Logger.log(sapaan);

  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var jumlahBaris = sheetInfo.getLastRow();
  Logger.log (jumlahBaris);
}

function berbicara(){
  return "Assalamu'alaikum Wr. Wb"
}

function getCell (){
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var dataAlamat = sheetInfo.getRange(4,3).getValue();
  Logger.log(dataAlamat);
  
}

function doPost(e){
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  
  var sheetName = e.parameter.sheetName;
  var sheet = dataExcel.getSheetByName(sheetName);
   var action = e.parameter.action;


  //filter request user

  switch(action){

    case "create":
      return createData (e,sheet);
      break;
    case "read":
      return readData();
      break;
  }
  
  
}

function createData(request,sheet){
var nama = request.parameter.nama;
var alamat = request.parameter.alamat;
sheet.appendRow([sheet.getLastRow(),nama,alamat]);

  var output =JSON.stringify({
    "hasil" : "sukses"
  });

  return ContentService
        .createTextOutput(output)
        .setMimeType(ContentService.MimeType.JSON);
}

GAS Pemula

function koneksi() {
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var namaData = dataExcel.getName();

  Logger.log(namaData);
  var sapaan = berbicara();
  Logger.log(sapaan);

  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var jumlahBaris = sheetInfo.getLastRow();
  Logger.log (jumlahBaris);
}

function berbicara(){
  return "Assalamu'alaikum Wr. Wb"
}

Tanggal dan Waktu event Change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A5:C13")) Is Nothing Then
        ThisWorkbook.Sheets("cant").Range("A1").Value = Format(Now(), "dddd, dd mmmm yyyy")
        ThisWorkbook.Sheets("cant").Range("A2").Value = "Waktu : " & Format(Now(), "hh:mm") & " WIB"
    End If
End Sub

Modul VBA

 klik di sni

Buka Password (Menampilkan)

 Sub PasswordBreaker()

'Breaks worksheet password protection.

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub